function PolicyIRFCollection(IRF,FolderName)

global VFun ExoState
ResVarList          =   {'PolicyK','PolicyE','PolicyD','PolicyL'};
ResNameList         =   {'Capital Policy','Equity Policy','Debt Policy','Hiring Policy'};   
ShockVarList        =   {'eps_Z','eps_phi','eps_varphi'};                     
ShockNameList       =   {'TFP','Debt Fin','Equity Fin'};
BenchmarkId         =   ceil(ExoState.num/2);
BenchmarkInd        =   (1+(BenchmarkId-1)*VFun.num:1:BenchmarkId*VFun.num)';
Xaxis   =   log(VFun.node);
for i_s=1:length(ShockVarList)
    Shock       =   ShockVarList{i_s};
    for i_r=1:length(ResVarList)
        ResVar  =   ResVarList{i_r};
        irf     =   IRF.(Shock).(ResVar);
        Yaxis   =   irf(BenchmarkInd,:);
        Title   =   [ResNameList{i_r}, ' to ',ShockNameList{i_s},' Shock'];
        FileName=   [FolderName,ResVar,'_',Shock];
        PlotVectorIRF(Xaxis,Yaxis,Title,FileName);
    end
end
